PLAYBACK();


(C1) MR:MATRIX([CR,SR,0],[-SR,CR,0],[0,0,1]);

                               [  CR   SR  0 ]
                               [             ]
(D1)                           [ - SR  CR  0 ]
                               [             ]
                               [  0    0   1 ]

(C2) MT:MATRIX([1,0,0],[0,CR,-SR],[0,SR,CR]);

                               [ 1  0    0   ]
                               [             ]
(D2)                           [ 0  CR  - SR ]
                               [             ]
                               [ 0  SR   CR  ]

(C3) MT:EV(MT,CR = CT,SR = ST);

                               [ 1  0    0   ]
                               [             ]
(D3)                           [ 0  CT  - ST ]
                               [             ]
                               [ 0  ST   CT  ]
(D4)                                 DONE

(C5) MP:MATRIX([CP,0,SP],[0,1,0],[-SP,0,CP]);

                               [  CP   0  SP ]
                               [             ]
(D5)                           [  0    1  0  ]
                               [             ]
                               [ - SP  0  CP ]

(C6) MR.MT.MP;

               [ SP SR ST + CP CR  CT SR   CR SP - CP SR ST  ]
               [                                             ]
(D6)           [ CR SP ST - CP SR  CR CT  - CP CR ST - SP SR ]
               [                                             ]
               [     - CT SP        ST          CP CT        ]

(C7) SAVE(PTR,LSP,DSK,HPM);

(D7)                       [[HPM462, 1, DSK, HPM]]

(C8) SAVE([PTR,LSP,DSK,HPM],ALL);

(D8) [[PTR, LSP, DSK, HPM], C1, D1, C2, D2, C3, D3, C4, D4, C5, D5, C6, D6, 

                                    C7, D7, C8, MR, MT, MP, FEATURES, LINENUM]

(C9)